home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 2218copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.3 KB  |  39 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "2218"
  4. Company = "BradyGames"
  5. title = "The Official Ultimate Mortal Kombat 3 Arcade Guide"
  6. Price = 8.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Books"
  13. Title Description = "Get to know all of the playable characters and their new special attacks,
  14. fatalities, combos, friendships, babalities, animalities, etc. Describes the new storyline
  15. surrounding the game and the Mortal Kombat universe. Plus, discover detailed information on all
  16. the modes of play, and how to set up tournaments."
  17.  
  18. -----------------------------------
  19. dline = ""
  20. counter = 0
  21. repeat while dline <> title number
  22. counter = counter + 1
  23. dline = GetWord(1, GetLine(titl,counter))
  24. test(dline = title number, LineInTitle = counter)
  25. end repeat
  26. starttitle = LineInTitle
  27. num of titles shown = 6
  28. endtitle = starttitle + num of titles shown - 1
  29. titles = ""
  30. title highlight = ""
  31. repeat with counter = starttitle to endtitle
  32. nextline = GetLine(titl, counter)
  33. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  34. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  35. CharCount(nextline)) ^ Return, title highlight ^ Return)
  36. end repeat
  37. dpage = CurrentPageID
  38. newtitle = FALSE
  39. end if